home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / qbprog.EXE / OHM.BAS < prev    next >
Encoding:
BASIC Source File  |  1995-01-01  |  1.4 KB  |  33 lines
  1. 100 CLS:SCREEN 0,0,0:KEY OFF:BEEP
  2. 110 FOR P=0 TO 50000!:NEXT P:CLS:LOCATE 6,29:COLOR 1,3,2:PRINT "   OHM KANUNU   "
  3. 120 LOCATE 8,18:COLOR 1,2,3:PRINT " Hangi Deºeri hesaplamak ÿstersiniz ? "
  4. 130 LOCATE 11,20:COLOR 30,6:PRINT "1":LOCATE 11,26:COLOR 14,6,0:PRINT " DÿRENÇ   :[R].....R=V/I "
  5. 140 LOCATE 13,20:COLOR 30,3:PRINT "2":LOCATE 13,26:COLOR 14,3,0:PRINT " GERÿLÿM  :[V].....V=I*R "
  6. 150 LOCATE 15,20:COLOR 30,5:PRINT "3":LOCATE 15,26:COLOR 14,5,0:PRINT " AKIM     :[I].....I=V/R "
  7. 160 LOCATE 17,20:COLOR 20,7:PRINT "4":LOCATE 17,26:COLOR 20,7,0:PRINT "***** Ç  I  K  I  ₧ *****"
  8. 170 LOCATE 22,18:COLOR 1,2,3:PRINT " ..........SEÇENEªÿNÿZ  NEDÿR.........":LOCATE 22,19:COLOR 31,4:PRINT "< >":COLOR 6,0
  9. 180 LOCATE 22,45:A$=INPUT$(1):IF LEN(A$)=0 THEN 180
  10. 190 SCREEN 0,0,0:WIDTH 80:COLOR 7,0,0
  11. 200 Y=VAL(A$):IF Y<1 OR Y>4 THEN 100
  12. 210 SCREEN 0,0,0:WIDTH 80:COLOR 7,0,0
  13. 220 Y=VAL(A$):IF Y=1 THEN 260
  14. 230 Y=VAL(A$):IF Y=2 THEN 310
  15. 240 Y=VAL(A$):IF Y=3 THEN 360
  16. 250 Y=VAL(A$):IF Y=4 THEN 410
  17. 260 CLS
  18. 270 INPUT "Gerilimi giriniz. U= ";U
  19. 280 INPUT "Akìmì giriniz     I= ";I
  20. 290 R=U/I
  21. 300 PRINT "R=";R;"Ohm":GOTO 110
  22. 310 CLS
  23. 320 INPUT "Akìmì giriniz    I= ";I
  24. 330 INPUT "Direnci giriniz  R= ";R
  25. 340 U=I*R
  26. 350 PRINT "U= ";U;"Volt":GOTO 110
  27. 360 CLS
  28. 370 INPUT "Gerilimi giriniz  U= ";U
  29. 380 INPUT "Direnci giriniz   R= ";R
  30. 390 I=U/R
  31. 400 PRINT "I= ";I;"Amper":GOTO 110
  32. 410 COLOR 7,0,0:SCREEN 0,0,0:WIDTH 80:KEY ON:CLS:BEEP:END
  33.